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Evaluation of FORTRAN Operations 
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ee ee ee 
ae Evaluation of functions 1 (highest) 


Arithmetic 















Relational Less than (<) 
(cont) LE. Less than or equal to (<) 


Exponentiation Equal to (=) 













2 
* Multiplication 3 Not equal to (#) 
/ Division 3 
+ Addition 4 Logical NOT 

4 


Logical AND 
Logical inclusive OR 


Subtraction 


Greater than (>) 
Ge Greater than or equal to (=) 





Relational 
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Bytes Allocated 2. 
Type Standard Optional Definition 


Integer A number with no fractional part —2,147,483,648 < integer < 2,147,483,647, —32768 < 
integer*2 < 32767. 


A number with a fractional portion. Maximum value is + 7,237005*1075. Minimum value is + 
0.5397605*1078, Accuracy is approximately 7 decimal digits for REAL*4 and 17 decimal digits for 
REAL#8. 
Double Same as REAL*8. 
precision 
Complex 8 16 A pair of real numbers; the first is the real part and the second the imaginary part of the complex 
value. 
Logical 4 1 The logical values FALSE or TRUE, or F or T, respectively. Zero represents false and nonzero true. 
Only the first byte is significant. 


Literal© [0 <X< 255) Any symbols that can be represented as a Hollerith constant or as a character string enclosed in 
apostrophes. 


@ No variable type is associated with literal or hexadecimal data. 
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2=| Syntax Conventions 
=s 
B 
3 
Brackets, [ ] enclose words and phrases used or omitted as required. 
Braces, | \ ,indicate a choice of two or more variant forms. < 
Fg 
w Ellipsis, ..., indicates where repetition may occur at programmer's option. ° 
Underscore, —, indicates FORTRAN IV default. 5 
wn" 
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Determining the Mode of an Expression 


Integer Real Real Complex 
4) (4) (8) (8) 
Real Real Complex Complex 
(4) (8) (8) (16) 
(4) 
4) 









Complex 










(16) 


( 
Integer Integer Integer 
Second 
Operand: (2) (4) (4) 
Type Integer Integer Integer Real Real Complex Complex 
(Length) 
(4) (4) (4) (8) (8) (16) 


Real Real Real Real Real Complex Complex 
(4) (4) (4) ( (8) (8) (16) 
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Complex 
(8) 


Complex 


(16) 


Complex 
(8) 
Complex 


(16) 


Complex 
(8) 
Complex 


(16) 


Complex 
(8) 
Complex 


(16) 


Complex 
(16) 
Complex 


(16) 


Complex | Complex 


(16) (16) 
Compiex Complex 
Complex | Complex 
(16) (16) 
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Organizational Statements 

PROGRAM program-name © 

BLOCK DATA {subprog-name] 

ENTRY entry-point name [(dummy-arg-l,..dummy-arg-n)] © 


INTEGER FUNCTION function-name {*length] ©, variable-name-arg) ... © 
REAL (rayne ) 
DOUBLE PRECISION _\ Cproc-name-arg 
COMPLEX 
LOGICAL 

function-name (dummy-arg-name-1,... [,dummy-arg-name-n]| ...) = arith-expression 

NOTES: } logical-expression 


© 1--6 character alphanumeric string, beginning with alphabetic character 


There need not be any arguments if the ENTRY is to a SUBROUTINE. An ENTRY into an external function subprogram must specify at least 
one argument 


@) 
© Length is not allowed with DOUBLE PRECISION type. 
© 


Variable-names used as arguments may be enclosed in slashes to indicate call by name 
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SUBROUTINE subroutine-name variable-name-1© )} ... | variable-name-n © 
array-name- | array-name-n 
proc-name- 1 proc-name-n 
* Q) * ©) 
END 
DATA ( variable-name variable-name .. | / [integer-constant*] constant |, {integer-constant*] constant] .../ 
array-name array-name 
array-elem-name array-elem-name 
DO-implied list DO-implied list 
variable-name / [integer-constant*] constant |, [integer-constant*] constant] .../f... 
afray-name 
array-elem-name 
DO-implied list 


oO 
= 
ga 
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N 
sy 
=. 
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= 
an 
2 
Ss 
2 
3 
2 
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Organizational Statements (cont) 


NAMELIST/namelist-name/  hetarael [ ean “i [ eee get ee [' ager | 
array-name array-name array-name array -name 


stmt-label FORMAT ({/...] field-descriptor-1 \/ t .. field-descriptor-n [/...]) 
©) 
NOTES: 
© Variable-names may be enclosed in slashes to specify call-by-name 
1) Represents dummy label arguments that correspond to CALL statement label arguments 


© Commas are not required when they follow fields described by blank, Hollerith, and literal descriptors. 
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Specification Statements 
ABNORMAL {function-name [,function-name] ...] Q@) 


COMMON ee eee ean 
array-name cabepdinenaeant array-name [(array-dimensions)| ... 


Hea ae la asthe Ie ey ie ae 
array-name [(array-dimensions)] array-name [(array-dimensions)| | ] 


DIMENSION array-name (array-dimensions) |,array-name (array-dimensions)] ... 


EQUIVALENCE (variable,variable[,variable}...) {,(variable,variable[,variable] ...)] .. © 





] 
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Explicit Type Statements 


nee [*group-length|@ , variable-name [length © [/initial-values/]]r- ¢ variable-name 
L array-name [(array-dimensions)} } arra i i 
] y-hame [(array-dimensions)] 
DOUBLE PRECISION |sraane function-name 
COMPLEX 
LOGICAL 


renames gh 


NOTES: 


©) An ABNORMAL statemert with no function-name indicates that all functions are to be considered normal. 


©) The variables may have no subscripts, a single subscript, or multiple subscripts. Variables may be variable-names, array-element-names, or 


array-names. 


© Length is not allowed for DOUBLE PRECISION. 
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a dee | [ea eeeaetina ty} 
external-function-name external-function-name 


IMPLICIT ( INTEGER length] © (| pareaerialeg & ~ ( INTEGER : (renin) © ( letter letter, 0]. © 
REAL letter-letter REAL | etter letter t) 
DOUBLE PRECISION DOUBLE PRECISION 
COMPLEX COMPLEX \ 
LOGICAL LOGICAL 
NOTES: 


® Length is not allowed for DOUBLE PRECISION. 
© In the IMPLICIT statement, the character $ is treated as a letter of a symbolic name and may be part of a range only as the last character. 


Assignment Statements 


variable=( logical-expression 
arithmetic-ex pression 
ASSIGN statement-labe! TO integer*4-variable 
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Sequential Input/Output Statements 


BACKSPACE esi 
Fee ae 


END FILE  integer-constant 
diese 


Formatted READ Statements 


READ integer-constant array-name 
iiteser- variable t namelist-name 
format-stmt-label 
*® 





[i 


EOF=stmt-label-1 
END=stmt-label- 1 


Liter eteld {1/0-list] 
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Unformatted READ Statements 


a integer-constant [ pment] Cameos 0st @ 
ieee nab END=stmt-label-1 


NOTES: 
@ Indicates the use of list-directed 1/0. 


@ For unformatted data set formats, see the OS/3 FORTRAN IV programmer reference, UP-8474 (current version). 


REWIND paella 
integer-variable 
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Sequential Input/Output Statements (cont) 
Formatted WRITE Statement 


WRIT at array-name [I/0-list] 
integer- variable namelist-name 


format-statement-label 
*@® 
Unformatted WRITE Statement 


WRITE ( asadeoehe [1/0-list] ® 
integer-variable 


NOTES: 


@ Indicates the use of list-directed 1/0. 


@ For unformatted data set formats, see the OS/3 FORTRAN IV programmer reference, UP-8474 (current version). 
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Other Sequential Input/Output Statements 


format-statement-array-name 
+O 


PRINT imate ara " 0-list 


format-statement-array-name 
+O 


PUNCH rte ra ‘ /0-list 


format-statement-array-name 


READ ( format-statement-label " 0-list 
*© 
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Direct Access Input/Output Statements 


DEFINE FILE i aad aaa 


E 
U 
aie Glia: L ‘ae |) 
E 
U 


FIND Preeti a) 
( integer-variable’ 


READ eee ‘( format-statement-label )] [,ERR=statement-label][,END=statement-label] \[list] 
integer-variable’ array-name 
*@ 


integer-variable’ array-name 


m( integer-constant’ em} format-statement-label ie 
*® 


NOTE: 
© Specifies list-directed 1/0. 
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Control .. 


CALL{ user-subroutine-name (ae =n) 
Silituluieeiare tf 


CONTINUE 

DO statement-label control-variable=initial-value, limit [,increment] 

GO TO statement-label 

GO TO (statement-label-1 [,statement-label-n] ...), integer-variable © 

GO TO integer * 4-vyariable [,(statement-label-1 [,statement-label-n] ...)]© 

{F (arithmetic-expression) © [statement-label] [,statement-label] [statement-label] 


IF (logical-expression) executable-statement © 
NOTES: 


@® = Maximum 127 statement labels permitted @ A complex expression is not permitted. 


@ The executable-statement may not be a DO, END, or another logical IF statement. 
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Control Statements (cont) 


PAUSE [ integer-constant al 
‘literal-constant’ 5}© 


RETURN [ integer-constant @ t 
integer-variable 


STOP i metonen | 
‘literal-constant’ © 

TRACE ON 

TRACE OFF 

NOTES: 

© May be 1—5 digits 

@ May not be more than 243 characters 


® This integer value points to a label parameter (signaled by an ampersand) in the argument list of the CALL statement 
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Format Codes 










a To read or write integer, real, complex, or Iegical data [scale-factor] [repetition-factor] G field-length .digit count 
a To read or write integer data [repetition-factor] | field-length 





[scale-factor] [repetition-factor] F field-length .digit count 


To read or write logical variables [repetition-factor] L field-length 
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Format Codes (cont) 
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a5 To read or write literals field-length H character-string 
2 
BS 
z= To read or write literals ‘character-string’ 
=s 
a 
3 To insert blanks on output or to skip characters on input field-length X 


To indicate the record position where the transfer of data is 
to begin. 


T transfer-position 
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Intrinsic Functions 


Determine the absolute value of the 
argument 


Determine the absolute value of the 
argument 


Truncation; eliminate the fractional 
portion of argument 


Truncation; eliminate the fractional 
portion of argument 





Function 


Real*4 
Integer*4 
Integer*2 
Double precision 


Complex*8 
Complex*16 


Real+4 
Double precision 


Real*4 
Double precision 


Real*4 
Integer*4 
Integer*2 
Double precision 


Real*4 
Double precision 


Real*4 
Double precision 


Integer*4 
Integer*4 
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Intrinsic Functions (cont) 


Remaindering; defined as ay —Ix] a. 

where [x] is the greatest integer whose 
magnitude does not exceed the magnitude of 
a,/ay and whose sign is the same 

as a,/ao 


Select the largest value 





2 
(Argument 2 


must be non- 


zero.) 





JMAXO @ 
AMAX0 @ 
AMAX1 @ 
tip on 
MAXO @ 
MAX1 @ 
DMAX1 @ 


Integer*2 
Real*4 
Integer*4 
Double precision 


Integer*2 
Integer*4 
Real*4 

Integer*4 


Real*4 
Double precision 








Integer*2 
Real#4 
Integer*4 
Double precision 


Integer*2 
Real*4 
Real*4 
Integer+4 


Integer*4 
Double precision 
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Select the smallest value 


Convert argument from integer to real or 
double precision 


Convert argument from real to integer 





FLOAT @ 
DFLOAT@ 
HFLOAT @ 
DFLOAT @ 


Integer*2 
Integer*4 
Real*4 


Integer*4 


Real*4 
Double precision 


Integer*4 
Integer*4 
Integer*2 
Integer*2 


Real*4 
Real*4 


Integer*2 
Real*4 
Real*4 


Integer*4 


Integer*4 
Double precision 


Real#4 
Double precision 
Real+4 
Double precision 


Integer *4 
Integer*2 
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Intrinsic Functions (cont) 
Generic 
Name 

DIM 


Member 
Function 
Name 


Replace the algebraic sign of the first 
argument with the sign of the second 
argument 


Positive difference; subtract the smaller 
of the two arguments from the first 
argument 


Convert double precision to real 


Get real part of a complex number 





Member 
Argument 
Type 


Integer*2 
Real*4 
Integer*4 
Double precision 


Integer*2 
Real+4 
Integer*4 
Double precision 


Double precision 
Complex*16 


Complex*8 
Complex* 16 


Member 
Function 
Type 

Integer*2 
Real«4 
Integer*4 
Double precision 


Integer*2 
Real+4 
Integer+4 
Double precision 


Real+4 
Complex*8 


Real*4 
Double precision 
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& S Get imaginary part of a complex number Complex*8 Real*4 
on 
Complex*16 Double precision 
Convert from reat to double precision DBLE Real*4 Double precision 
CDBLE Complex*8 Complex*16 
a 
32 Convert two real arguments to a complex CMPLX Real*4 Complex+8 
2 S number DCMPLX Double precision Complex*16 
= 
3 Get conjugate of a complex number CONJG Complex*8 Complex*8 
3 DCONJG Complex*16 Complex*16 7 
—] 
= 
NOTES: g. 
a 
@ This function is an external procedure supplied in the FORTRAN IV library. 3 
@® This function is accessible only through its member name, eS 
i=] 
—] 



















Function Value 


Type and 


real¥4 |x 1<(2'8 5 real*4 

(in radians) -t<y<l 

real*8 1x j<(2507) real*8 
(in radians) -1<y<1 








Definition 






Trigonometric 
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call complex*8 1x, 1<(2'8 5) complex*8 


(in radians) [xo |S 174.673 —M <y1¥2 <M 















y=sin(z) 











Ixy 1<(259 7) 
Ixy 1S 174.673 


complex*16 
{in radians) 


complex*16 
—M Sy <M 
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reale4 ix1<(2!8.n) real*4 


























(in radians) -Iixy< 1 
y=cos(x) 
pcos real*8 bx [<(2°0 a real*8 
{in radians) -1<y<1 
complex*8 Ix, 1<(2'8.7) complex*8 


















{in radians) [xo | <174.673 —M <y1¥_ <M 
























‘i ae 
y=cos(z) 

< - 

Za 


compiex*16 | x 1<(250 7 complex*16 
{in radians) |x 1< 174.673 —M <y1¥2 <M 
real*4 |x 1<(2'8 7) real*4 
(in radians) —-M<y <M 
TAN y=tan(x) 
DTAN real*8 ix |<(250 7) real*8 
(in radians) —-M<y <M 
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Standard Library Functions (cont) 























(quo9) suoijouny Asesgi] psepueys 


Function Value 
Type and 


reala4 ix 1<(2!8.9) reale4 
{in radians) —-M<y <M 


real¥8 |x |< (20m) reale8 


pall — 
ie, oe 


Mathematical 
Definition 





Trigonometric 
(cont) 


eae 

cot \ 

ideas 

cot ff ta 
DCOT t 


ie t 
ARSINS 
{ ASIN \ yzaresin(x) 
\DARSINS 
Nhe N 
ARCOSs 
pe \ 
ARCOS (OACOS \ 
\DARCOS 


{in radians) 





real*4 (in radians) 
—nl2<y Snl2 


real*8 (in radians) 
—nl2<y Sn/2 


real*4 (in radians) 
O<y<nr 

















S188 
“df 


Al NYYLYO4 


£/SO DWAIN AYYIdS 


62 








real*4 (in radians) 

—2<Sy <n /2 
7 ae ae 

ATAN2 real*4 any real arguments real*4 (in radians) 

ATAN2 except (0,0) —nSy <0 

BATAN2 real*8 any real arguments real*8 (in radians) 

except (0,0) —r<sy an 

ba p= fa ae 








any real argument 


























y=arctan(x) 


xy 
y=arctan (=) 
x2 










any real argument teal*8 (in radians) 


—nl2<y Sn /2 







realx4 |x |<175.366 real*4 
—M<y <M 

real*8 |x 1<175.366 real*8 
—-M<y<M 
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Standard Library Functions (cont) 


Hyperbolic 
(cont ) 








Mathematical 
Definition 


Ixy 1<174.673 
[xg <218.5 


|xq1<174.673 
|x9i< 250.9 


1x |< 175.366 
1x 1<175.366 








Function Value 
Type and 
Range 


complex«8 
—M <VpV2 <M 


complex+16 
—M Sy V2 <M 
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CCOSH 1 
et+em2 
y= 2 
CDCOSH 2 1 
TANH 
TANH 
OTANH 


Exponential 
y=e™ 
DEXP 
EXP 
CEXP 
yee” 




















complex+8 
—M <yyy)<M 


complex+8 | 1 IS 174.673 


Ixgk<2'8.2 









complex*16 Ixy |<174.673 complex*16 


[x91 < 250.4 —M <yyy9<M 


any real argument real*4 
-1Sy<1 
real*8 any real argument real*8 
-1<y<1 
x 2 -180.218 real*4 
x S 174.673 0<y<M 
real*8 x > -180.218 real*8 
x S 174,673 0<y<M 
































xy <174.673 
Ixy 1<(2'8.n) 


complex*8 
—MS y1¥. <M 


complex*16 






complex*16 
—MS Yp¥o <M 


xy < 174.673 
Ixy 1< (250 7) 
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Standard Library Functions (cont) 


General 
Operation 


Base 10 
Exponential 


Natural logarithm 





Mathematical 
Definition 


real+8 








{ALOG | 


loc f 


y=log, x or 
y=in(x) 


ai 


—180.216/In(10) 
x i 673/In( 10) 


x 2 -180.216/in(10) 
x < 174.673/In(10) 





real*8 











Function Value 
Type and 
Range 


real¥4 
0<y<M 


real*8 
0<y<M 


real*4 
y = -180.218 
¥ S174.673 


real*8 
y > ~180.218 
y S174,673 
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Common logarithm 


\ 


ALOG10t 
LoGio f 


ALOG10) 


{LOGIO f 


OLOG10 


complex*8 


y=PVIog, (2) 


PV is principal value, 


which means Y9 complex*16 2#0+0i 
between —7 and 7. 


complex*8 y=y 1 +¥9i 
¥,>—180.218 

¥y <175.021 
—tSyyS0 
complex* 16 y=y 4 +ygi 
Vy > 180.218 

¥4 $175,021 
—ISygS0 


real*4 
y > ~78.268 
y 75.859 


real*8 
y > -78.268 
y < 75.859 
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Standard Library Functions (cont) 


General 
Operation 


Square root 
SORT 


Cube root 


OSQRT 


CSQRT 


CDSQRT 


OCBRT 


Mathematical 
Definition 





Function Value 
Type and 
ee 
reale4 x20 sealn4 
o<y<ml2 
eee 


complex*8 any complex argument complex*8 
O<y, <1.0987 (m!/2) 
yy 1<1,0987 ("/2) 


complex* 16 any complex argument complex« 16 
O<y, <1.0987 we 
Ivo 1K1 987 (m1! 
real*4 any real argument real*4 
—wi/3 <y< wl/3 


eed ie 
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Distribution 








any real argument 


any real argument 


real*8 
~l<y<!l 
real*4 
O<y<2 


any real argument 


any real argument 


real*§ 
O0<y<2 
x> 27252 and real4 
x < 57.5744 0.88560<y <M 


x>27252 ang real#8 
x <57.5744 0.88560 <y <M 
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Standard Library Functions (cont) 


Mathematical 
Definition 


Distribution ALGAMA 
(cont) 
ALGAMMA 


LGAMMA 
OLGAMA 


NOTES: 

1 m = 1663-(1—16-9 for real*4 and 1663-(1—16-!4) for 
Teal*8 

2. Z is a complex number of the form x) + xi 





x >Oand 
x <4.2913 - 1073 


x >Oand 
x<4.2913 - 1073 


Function Value 
Type and 
Range 


real*4 
—0.12149<y <M 


realx8 
-0.12149<y<M 
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Standard Library Subroutines 


a 


SSWTCH CALL SSWTCH (e,i) Tests the binary switch specified by the integer expression (e) and returns a value in the integer 












variable name (i). 
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Standard Library Subroutines (cont) 








| oume | CALL DUMP (list) Dumps main storage assigned to the program; program execution terminates. 
J Poume CALL PDUMP (list) Dumps main storage assigned to the program; program execution continues. 


FETCH CALL FETCH (s) Loads and transfers control to the overlay specified by the phase name (s). 
LOAD CALL LOAD (s} Loads subprogram overlays and transfers control to the program statement under the CALL statement. 


CALL OPSYS (‘LOAD’;s) 









Loads subprogram overlays and transfers control to the program statement under the CALL statement; 
equivalent to CALL statement for LOAD subroutine. 











(}u09) sauijnoigns Auesqr] puepueys 


AL NWaLu0d 
€/S0 OWAINA AYY3dS 


6 





PARAM Statement Parameters 


LST=option 


Indicates type of compiler output information required, where option may be: 


Compiler identification, parameters, and diagnostics. 
Source code listing plus N-option listings. 
Object summary and storage map with addresses of variables and arrays, plus S-option listings. 


Default option is S. 
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PARAM Statement Parameters (cont) 


IN=module-name [/filename] 


Specifies name of source module being compiled, The module resides in the name of file. If filename is omitted, the name 


specified on the LIN parameter, or L!B1, is assumed. 
OUT=filename 


Specifies name of object module file. 





Default action places object modules in temporary scratch file $Y$RUN. 
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LIN=filename 


Specifies name of default source module file. 


Default value is LIB1. 
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PARAM Statement Parameters (cont) 


OPT=(S,N,X,C,T) 
Specifies compiler options: 
Statement numbers are inserted into generated code as an aid to debugging. 
No object module is generated. Program units are compiled only. 
Compile all cards with an X in column 1. 


References to array elements are checked to see if they are outside declared array limits. 


Executable labels are traced. 
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MAP=(S,A,L) 


Specifies type of map produced by compiler: 


$ - Object summary information, including module size and external subroutines called. 
A - Alphabetical listing of addresses assigned to variables, arrays, and statement labels. 
L - Listing of variables, arrays, and statement labels by storage allocations. 


ERRFIL=module-name/lfdname 
Specifies that an error file is created. 


Module-name is the name of the module for a MIRAM source library file. Lfdname is the // LFD name ofa 
MIRAM source library file. 


Default is that no error file is written. 
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Unit References 


a Control Module FL$IO 


Unit 





omw— 


Device 





Card read 
Printer 
Card read 
Printer 
Reread 





Notes 


Cards in control stream 
Also used for diagnostics 
Equivalent to unit 1 
Equivalent to unit 3 


i— 
J 
~ 
= 
Oo 
—_ 
Oo 
= 
om 
I 
° 
bid 
n 





. Control >. FL$IO1 


2S 
Unit Device 
1 Card read 
an 2 Card punch 
a 3 3 Printer 
26 5 Card read 
== 6 Printer 
TS 11,12 Tapes 
cS 29 Reread 





Notes 





Cards in control stream 


Also used for diagnostics 

Equivalent to unit 1 

Equivalent to unit 3 

508-byte variable unblocked records, no labels, workfile 
To reread cards, but not tapes 
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10 16 
UNIT FDEVICE=REREAD 


cis 
READ 








10 16 
UNIT [FDEVICE=UNITREC, } 
FUNIT=4 k 
PRINT 
PUNCH 
READ 


READER; if FUNIT=READ 


, FNUMBUF= 14 | @ 


/FTYPEFLE= 
}aureu if FUNIT=READ 








jure: if FUNIT=PRINT 
or PUNCH 


FEILEID= 
filename 
FORTK: if FUNIT=k 
PRNTR: if FUNIT=PRINT 
PUNCH; if FUNIT=PUNCH 
5 FCHAR= forty] 
[, FOPTION=YES ] 
[, FAUE=YES] 
[. FREREAD=YES ] 
[, FCRDERR=RETRY ] 
[, FRECSIZE=k] 
jee Seon UE 
/FGETJCS=YES 
[., FTRANS=ASCI1] 
[. FDIAGNOS=YES] 
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UNIT 


1/0 Configuration Procedure Calls (cont) 


16 
[FDEVICE=TAPE, ] 
FUNI T= 
READ 
PUNCH 
PRINT 








PUNCH; if FUNIT=PUNCH 
PRNTR;: if FUNIT=PRINT 





FFILE!D= 
filename 
FORTkK; if FUNIT=k 
READER; if FUNIT=READ 





INPUT; if FUNIT=READ 
OUTPUT; if FUNIT=PRINT 
or PUNCH 


. FRECFORM=( VARUNB 
VARBLK 
FIXUNB 
FIXBLK 


ruuMB em tet 


[, FRECSIZE=k] 


,FBFSZ= 
k 
FRECSIZE; if FRECFORM= 


FIXUNB 

FRECSIZE+4; if FRECFORM= 
VARUNB 

FRECSIZE*4; if blocked 


[, FREREAD=YES ] 
{, FDIAGNOS=YES] 
[, FBKNO=YES]} 


Rees lay 


es ie 


[, FCKPTREC=YES ] 
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1/0 Configuration Procedure Calls (cont) 


10 16 
UNIT [FDEVICE=DISK, ] 


FUN T=( k 
READ 
PUNCH 
PRINT 


,FFILEID= 1 
filename 
FORTK; if FUNIT=k 
READER; if FUNIT=READ 
PUNCH: if FUNIT=PUNCH 
RNTR: if FUNIT=PRINT 

















~ 





TFTYPEFLE= 
WORK 
INPUT; if FUNIT=READ 
OUTPUT; if FUNIT=PUNCH 
or PRINT 


{. FBFSZ=k] 


Ceca yes 
FIXUNB 





[, FRECSIZE=k } 

[. FOPTION=YES] 

[, FVERIFY=YES] 

[. FDIAGNOS=YES ] 

Ree ear 
-FGETJCS=YES 


{, FREREAD=YES ] 
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1/0 Configuration Procedure Calls (cont) 


10 16 
Ee a ee ee EE 
UNIT [FDEVICE=WORKSTN, ] 


FUNIT={(k 
@ READ 
» PUNCH 
PRINT 
'’ SFFILEID= 
filename 


FORTK; if FUNIT=k 

READER; if FUNIT=READ 
PUNCH; if FUNIT=PUNCH 
PRNTR; if FUNIT=PRINT 


. FSCREND=( WRAP | 
SCROLL 


NEWPAGE| 








JFTYPEFLE= 
WORK 
INPUT; if FUNIT=READ 
OUTPUT; if FUNIT=PUNCH 
or PRINT 


& [. FIOOPT=VYES] 


[, FLINCNTL=YES] 


[ FNombure seh) 


[, FOPTION=YES } 

[, FRECSIZE=k] 

[, FREREAD=YES ] 

[eee | 
»FGETJCS=YES 


[, FDIAGNOS=YES ] 
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1/0 Configuration Procedure Calls (cont) 


10 16 


UNIT FDOEVICE=EQUIV, 


FUNIT=(k 
READ ® 


PRINT 
PUNCH 


FEQUIV=/ k 
READ 
PRINT 
PUNCH 
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CC sséé#sedésedésees.seé..6.......... yee 


Error Control Macro 


18 17 


ED) 
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Error Control Macro (cont) 


18 17 


ae Pe (eta) 
| (Haus Jase) | an 




















.FERROPT= 
NONE 
READ 
READ ,DATA 
READ, UNREC 
READ, DATA, UNREC 
DATA 
DATA, UNREC 
UNREC 
where: 
i 
Is a positive integer constant less than 32,768, 
with i2j; specifying the number of times the 
error is to be accepted before program termina- 
tion. For a fatal error, j is assumed to be 1. 
j 
Is a positive integer constant less than 32,768, 
with j<i; specifying the number of diagnostic 
messages to be produced. For a fatal error, i is 
assumed to be 1. 
ALL 
Specifies that there is no limit on the number of 
times the error is to be accepted before program 
termination or that there is no limit on the 
number of diagnostic messages to be produced. 
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Special Characters Used in FORTRAN Source Language 


Special Characters Used in FORTRAN Source Language 


Special Characters Card Punches 


(blank) space 


@ 






+ plus 

’ - minus 
/ virgule 
= equal 





decimal point 
right parenthesis 
asterisk 
comma 
left parenthesis 
apostrophe 

& ampersand 
semicolon 





*o_- 







—_—: 
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Example of Compile, Assemble, Link, Execute 


1 


// JOB 


// FOR4 
/$ 





10 16 








FORTJOB1 


program data 


y? 
// ASM 
/$ 
MY18 


LST=NC 


START 


FUNIT=... 


FUNIT=... 


FUNEND 
ERRDEF 
END 








Name of job 
Cail FORTRAN IV 


Card input to compiler 


Call assembler; no cross-reference 


Unit table information 
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heh 
// 


// 
// 
/$ 


/* 
/& 
// 


LINK 

DVC --- // LFD --- 

DVC --- // LFD --- 
EXEC LNKLOD,$Y$RUN 
data 

FIN 


Call link editor 


Assign devices required 
by unit table 


Execute the program 


Optional spoolin data file 


Terminate job stream 
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Example of Compile, Link, Execute — Disk Input 


1 10 16 
// JOB FORJOB2 Name of job 
//TEST1 FOR4 LST=M,1N=(MYDISK,SOURCE) Call FORTRAN IV with 
// PARAM IN=TEST2 PARAM's — 2nd program 
// PARAM IN=TEST3 3rd program 
//TEST LINK OUT=(MYDISK,LOADFILE) Link module TEST to MYDISK 
// OVC --- // LFD --- Optional devices for execution 
// EXEC TEST,OUT Execute TEST 
/$ 
data Optional data 
y* 
/& End of job 
// FIN 
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